oo::class create PopupAlertDialog {
    superclass PopupDialog
    variable Path PopUpFlag OKVal CancelVal ifDestroy

    method createPopup {msg} {
        next $msg
        pack forget $Path.btns.no
    }
}